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-++ 
; FACILITY: Run-Time Library - FORTRAN Language Support 
; ABSTRACT: 


This module contains the entry vector Got iats ions for the 
VAX-11 Run-Time Library shareable image FORRTL.EXE 


: ENVIRONMENT: User mode, AST Reentrant 
: AUTHOR: Steven B. Lionel, CREATION DATE: 29-October-1982 
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; MODIFIED BY: 
1-001 
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; 1-004 


Original. SBL 29-October- ha 

Add FORS$10 BEG. SBL 11-Ma oye '? 

Add FORSREAD_IL and FORSWRITE oe SBL 19-Reyal ee 
ORS$ routines 


Add all remaining FORS$ routines, plus those 
referenced by COM$ routines. SBL 11-Jul-1983 
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1-004 DECLARATIONS rami oe ts ay, PORRTL. SREIFORVECTOR.MAR;1 °° 2° (3) 
. »SBTTL DECLARATIONS 
; LIBRARY MACRO CALLS: | 
; NONE | 
0 EXTERNAL DECLARATIONS: 
09 -DSABL GBL : Force all external symbols to be declared 
33 : MACROS: 
00 i+ 
3 ; Macro to define an entry vector for a CALL entry point 
000 ; 
000 «MACRO VCALL NAME, ALTMSK 
000 . N NAME 
000 . TRANSFER NAME 
000 IF 8 ALTMSK 
000 MASK NAME 
000 wIFF 
000 MASK ALTMSK 
000 -ENDC 
JMP NAME +2 
~ENDM 


ed 
; Macro to define an entry vector for a JSB entry point 


iit VJSB NAME 


NAME 
- TRANSFER NAME 
JMP NAME 
-BLKB 
-ENDM 
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; Macro to define an alias for the next vectored entry point 
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OWN STORAGE: 
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13 ; PSECT DECLARATIONS: 
0000 163 ’ .PSECT SFORSVECTOR P USR, CON REL ttt. SHR, - 
i11 


Ic, 
XE, RD, NOWRT, 


; Module FORSDECODE _MF 
VCALL FORSDECODE_MF FORS$IO_BEG 
3 Module FORSDECODE_MO 


] 
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1-004 FORRTL Vector Paes #7509 563 LPORRTL. SREIFORVECTOR MAR: 1 ° (3) | 
; -SBTTL FORRTL Vector | : 
*+ ° 
; Define vectored entry points for the FORTRAN Language Support rocedures | : 
09 ; by module in alphabetical order. _— od , : 
6 ; Any additions to this file should be reflected in ; 
8 ; COMS:FORRTLVEC.DAT. ALL new entry points must be appended to the end : 
0 ; of the List. NEVER change existing entries unless you are sure that : 
4 ; what you do won't break existing programs. : 
2099 ; Module FORSSCB ; 
0000 F 
4 VJSB FORSSCB_GET : 
000 ALIAS FORSS$CB_RET 3 
000 VJSB FORS$CB-POP ; 
00 VJSB FORS$S$CB_PUSH $ 
8 VCALL FORSSFP_MATCH : 
09 ; Module FORSBACKSPACE 
00 VCALL  FORSBACKSPACE 
; Module FORSCLOSE 
VCALL  FORSCLOSE : 
; Module FORSCVTRT : 
ALIAS FORSCNV_OUT_D F 
VCALL ORSCVT_D_TB : 
ALIAS FORSCNV_OOT_E : 
VCALL FORS$CVT_D_TE : 
; 
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: VCALL FORSDECODE_MO FORSS$IO_BEG 
: ; Module FORSDEFINE_FILE 
C VCALL FORSDEF _F ILE 

VCALL FORSDEF_FILE_W 

op ; Module FORSDELETE 

OD VEAL FORSDELETE_p 

oF ; Module FORSENCODE_MF 

BE VCALL FORSENCODE_MF FORS$S$!0_BEG 

bE ; Module FORSENCODE_MO 

BE VCALL FORSENCODE_MO FORS$$I0_BEG 

0 


Module FORSENDFILE 
VCALL FORSENDFILE 
Module FORSERRSNS 
VCALL Peder ete SAV 
VCALL FORSERRSNS ~ 
VCALL FORSERRSNS_W 
Module FORSEXIT 


VCALL FORSEXIT 
VCALL FORSEXIT_W 


Module FORSF IND 
VCALL FORSFIND 
Module FORSINI_DES 


VJSB FORSINI -pESouRS 
VJSB FORSINI-DES2-R 
VJSB FORSINI-DESC_R6 


Module FORSINQUIRE 
VCALL FORSINQUIRE 
Module FORSIO_ELEM 
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VCALL FORSIO_B_R 
VCALL FORSIO"BV 
VCALL FORSIO"DC_R 
VCALL FORSIO“DC7V 
g VCALL FORSIO"D_R 
VCALL FORSIO“D7V 
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FORSVECTOR - Entry vertere for FORRTL.EXE 15-SEP-19 74 AX/VMS v04-00 Ga 
1-004 FORRTL Vec 3-8E= 1388 3: of: 23 YRORRTL ste SFORVECTOR.MAR:1 9" (&) 
? ? VCALL FORSIO_FC_R 
: VCALL FORSIOTFC7V 
VCALL FORSIOTF_R | 
0 VCALL FORSIOTF7V 
9 1 VCALL FORSIO“GC_R | 
A ; VCALL FORSIO“GC~V | 
A VCALL FOR$IO-G_R 
B 4 VCALL FORSIO"G-V 
B § VCALL FORSIOTH-R 
C 6 VCALL FORSIOTH7V 
C VCALL FORSIO-LO_R 
D g VCALL FORSIOTLU-V 
D VCALL FORSIOTL_R 
E 40 VCALL FORSIOTL7V 
E 41 VCALL FORSIO"T~DS 
F 43 VCALL FORSIO"T~V_DS 
F 4 VCALL FORSIO"WO_R 
0 4b VCALL FORSIOTWU-V 
0 45 VCALL FORSIO“W_R 
1 4g VCALL FORSIOTW7V 
1 4 VCALL FORSIO"X"DA 
48 VCALL FORSIOTX"NL 
49 VCALL FORSIO"X"SB 
30 VCALL FORSIOTX7SE 
38 2g ; Module FORSIO_END 
38 3 VCALL  FORSIO_END | 
$8 28 3 Module FORSOPEN | 
4 38 VCALL FORSOPEN 
re $' 3: Module FORSPAUSE | 
4 64 VCALL FORSPAUSE 
3 64 ; Module FORSRAB 
; 6 VCALL FORSRAB 
; 68 ; Module FORSREAD_DF | 
3 29 VCALL FORSREAD_DF FORS$10_BEG | 
6 , ; Module FORSREAD_DO | 
é rh VCALL FORSREAD_DO FORS$10_BEG | 
g 3 Module FORSREAD_DU 
$ ? VCALL FORSREAD_DU FORSS10_BEG | 
, 6 ; Module FORSREAD_IF 
? ; VCALL FORSREAD_IF FORSS10_BEG | 
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; Module FORSREAD.10 
VCALL FORSREAD_10 —-FORS$$10_BEG 
Module FORSREAD_KF 
VCALL FORSREAD.KF ——- FORS$10_BEG 
Module FORSREAD_KO 
VCALL FORSREAD.KO —«FORS$10_BEG 
Module FORSREAD_KU 
VCALL FORSREAD_KU —«-FORS$10_BEG 
Module FORSREAD_SF 
VCALL FORSREAD.SF  FORS$IO_BEG | 
Module FORSREAD_SL 
VCALL FORSREAD.SL —~FORS$10_BEG 
| 
| 
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Module FORSREAD_SN 

VCALL FORSREAD_SN —-FORS$10_BEG 
; Module FORSREAD_SO 

VCALL FORSREAD_SO —-FORS$10_BEG 
Module FORSREAD_SU 

VCALL FORSREAD_SU —-FORS$10_BEG 
; Module FORSREWIND 

VCALL  FORSREWIND 
Module FORSREWRITE_SF 

VCALL FORSREWRITE_SF FORSS10_BEG 
Module FORSREWRITE_SO | 

VCALL FORSREWRITE_SO FORS$10_BEG | 
Module FORSREWRITE_SU | 

VCALL FORSREWRITE_SU FORS$10_BEG 
Module FORSSECNDS 

VCALL  FORSSECNDS | 
Module FORSSTOP | 
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R ¥ ZiSEb= 138 47:69:03 FORRTL.SRCJFORVECTOR.MAR; 1 


FORRI 

VCALL FORSSTOP 
Module FORSUNLOCK 

VCALL FORSUNLOCK 
Module FORSWRITE_DF 

VCALL FORSWRITE_DF FORS$I0_BEG 
Module FORSWRITE_DO 

VCALL FORSWRITE_DO FORSS$IO0_BEG 
Module FORSWRITE_DU 

VCALL FORSWRITE_DU FORSS10_BEG 
Module FORSWRITE_IF 

VCALL FORSWRITE_IF FORSS10_BEG 
Module FORSWRITE_10 

VCALL FORSWRITE_10 FORS$10_BEG 
Module FORSWRITE_SF 

VCALL FORSWRITE_SF FORS$I0_BEG 
Module FORSWRITE_SL 

VCALL FORSWRITE_SL FORSS$IO_BEG 
3; Module FORSWRITE_SN 

VCALL FORSWRITE_SN FORS$10_BEG 

; Module FORSWRITE_SO 

VCALL FORSWRITE_SO FORSS10_BEG 
Module FORSWRITE_SU 

VCALL FORSWRITE_SU FORSS10_BEG 
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ge 
3 End of initial FORRTL vector. ALL subsequent additions must be made 
3; after this point. 
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; FORSSIO_BEG is never called from outside of FORRTL, but its entry mask 
3; needs to be made available to VMSRIL, hence its inclusion here. 
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; Module FORS$IO BEG 
VCALL FOR$$10_BEG 


; Module FORSREAD it 
VCALL FORSREAD_IL FORS$$10_BEG 


; Module FORSWRITE IL 
VCALL FORSWRITE_IL FORS$$10_BEG 


Module FORSBITOPS 
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Ww 
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Module FORSDATE 
VCALL FORSDATE 
Module FORSDATE_T_DS | 
VCALL FORSDATE_T_DS | 
Module FORSIDATE | 
VCALL FORSIDATE | 
Module FORSJDATE | 
VCALL  FORSJDATE 
Module FORSLEX 
VCALL  FORSLGE 


VCALL FORSLLT 
Module FORSRANDOM 

VCALL FORSIRAN 

ALIAS FORSRANDU_W 

VCALL FORSRANDU 
Module FORSTIME 


VCALL FORSTIME 
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; Module FORSTIME_T_DS 
VCALL FORSTIME_T_DS 


r 
L 
4 4 
4 4 
4 4 
4 4 
4 4 
4 460 ;+ 
4 $2) : Internal entry points that are called by COM$S (PDP-11 Compatibility) 
4 4 § 3; modules. 
4 465 ;:- 
4 464 
" $92 : Module FORSSERROR 
r sey VCALL FORSSERR_OPECLO 
‘ 183 3; Module FORSSSIGNAL 
4 471 VCALL FORSSSIGNAL_STO 
04 t78 VCALL FORSS$SIG_FATINT 
Be tS VCALL FOR$$SIG_NO_LUB 
04 475 ; Module FORSERRSNS 
04 ore 
04 47 VCALL FORSSINIT_ERRSET 
04 478 
04 479 ; Module FORSSVM 
04 480 
04 481 VCALL FORSSFREE_VM 
04 rt VCALL FORSSGET_OM 
04 48 
04 484 


END 3; End of module FORSVECTOR 


FORSSGET 
FORSSINIT_ERRSET 
FORSSIO_BEG 
FORSSSIGNAL STO 
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FORSVECTOR - Entry vectors for FORRTL.EXE 15-SEP-1984 23:46:45 VAX/VMS Macro V04-00 Page 12 | 
Symbol table : o7$bb= 1984 #7269143 EPORRTL «SRC (iF ORVECTOR.MAR; 1 . (3) 
FORSREAD_SF eeereeee =X 1 
FORSREAD_SL teeeeere = x 1 
FORSREAD_SN eeeeeeee YX 1 
FORSREAD_SO eeeeteee =X 1 | 
FORSREAD SU eeereeee xX 1 | 
FORSREWIND eeeeeeee =X 1 | 
hioak ed BLE eereeeee =X 1 
FORSREWRITE_SO eteeeere YX 1 
rOnSRe ver Te. SU eeeereee xX 1 | 
FORSSECND eeeeeeer =X 1 
FORSSTOP. eeereeee xX 1 
FORST IME eeeeeeee xX o1 
FORSTIME_T_DS eeeeeeee xX 1 | 
FORSUNLOT eeeeeeee Xx 01 | 
FORSWRITE_DF eeereree xX oi 
FORSWRITE_DO eereeeee xX 1 
FORSWRITE_DU eeeeeres§ XxX 01 
FORSWRITE_IF ertereer xX 1 
FORSWRITE_IL eeeerere xX 1 
FORSWRITE_10 eeeeeeee X01 
FORSWRITE_SF eeeeeeee XxX 01 
FORSWRITE_SL eeeeeeee xX 01 
FORSWRITE_SN eeeeeeee Xx 01 
FORSWRITE_SO etereree KX 01 
FORSWRITE_SU eeeereee xX 01 

¢oeee eee enn en eee ae + 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ( Q.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SFORSVECTOR 00000458 ( 1112.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

pew een er ree ee ene nee eae eos 
: ; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 0: 8:8 -12 8:08: ie 95 
Py processing 3 0:00:00. 39 0:0 +32 | 
Symbol iable sort 6 :00: 9 HB 
Pass 2 10 :00: A$ 72 
Symbol table output 1 :00:00.1 -66 
Psect synopsis output 9 3 05 
Cross-reference output g 9 3 ° 
Assembler run totals 38 ° 21. 


| 

The orking st Limit was 1050 pages. 
17467 bytes (35 pages) of virtual memory were used te buffer the intermediate code. | 

There were 10 pages of symbol table space ee ecenee 3 hold 159 non-local and 0 local symbols. 

484 source Lines were read in Pass 1, producin object records in Pass 2. 

3 pages of virtual memory were used to define 3 macros. 


~~ 
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! Macro Library statistics ! 


fm aner rere reese ee see sence eee 3 


Macro Library name Macros defined 
_$255$DUA28: (SYSLIBISTARLET.MLB; 2 aay a 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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